home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
tspa2560.zip
/
TSUNTC.TST
< prev
next >
Wrap
Text File
|
1990-07-14
|
1KB
|
49 lines
(* This is a test program for the TSUNTC.TPU unit
Updated 19-Aug-89, 12-Nov-89, 14-Jul-90
*)
uses Dos,
Crt,
TSUNTC;
procedure LOGO;
begin
writeln;
writeln ('TSUNTC unit test by Prof. Timo Salmi, 14-Jul-90');
writeln ('University of Vaasa, Finland, ts@chyde.uwasa.fi');
writeln;
end; (* logo *)
(* Don't play it again, Sam *)
procedure TEST1;
const tune : array [1..7] of string[2]
= ('c ', 'd ', 'e ', 'f ', 'g ', 'a ', 'b ');
var i : byte;
begin
Delay (100);
for i := 1 to 7 do PLAYNOTE (tune[i], 4, 400);
PLAYNOTE ('c', 5, 400);
end; (* test1 *)
(* Display something in reverse *)
procedure TEST2;
begin
REVCOLOR;
writeln ('Display something in reverse');
REVCOLOR;
writeln ('All back to norbal :-)');
writeln ('Rats!')
end; (* test2 *)
(* Main program
If you don't want a particular test, comment it away.
Q: Why don't software firms test their programs properly themselves
but leave it to the gullible user?
A: Because it is such a testing task (do I detect audible groans :-)
*)
begin
LOGO;
TEST1;
TEST2;
end. (* tsuntc.tst *)